home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9207.d64 / cls-demo 2 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  523b  |  23 lines
  1. 10 REM ***********************
  2. 20 REM *                     *
  3. 30 REM * CLS-DEMO 2 IN BASIC *
  4. 40 REM *                     *
  5. 50 REM ***********************
  6. 60 REM VARIABLEN ANALOG CLS-DEMO 1
  7. 70 :
  8. 110 GOSUB 210:REM TEXT AUF BILDSCHIRM
  9. 120 FS=55296:SP=40:FE=FS+SP
  10. 130 FB=PEEK(53281)
  11. 140 :   FOR X=0 TO 20
  12. 150 :        FOR Y=0TO24*40 STEP 40
  13. 160 :          POKE FS+Y+X,FB
  14. 170 :          POKE FE+Y-X,FB
  15. 180 :        NEXT Y
  16. 190 :   NEXT X
  17. 200 END
  18. 210 :
  19. 220 REM "SUBROUTINE ZUM TEXT SCHREIBEN"
  20. 230 FOR I=0TO22
  21. 240 PRINT"CLEAR-SCREEN-DEMO IN BASIC 64'ER 07 1992";:NEXT
  22. 250 RETURN
  23.